home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / Projects / Examples / Setups / Using Setups for Channel Access < prev    next >
Encoding:
Text File  |  1998-10-26  |  1.2 KB  |  55 lines  |  [TEXT/ScoM]
  1. ; Using setups to access synths channels in 1..16 range
  2.  
  3. (def-setup
  4.    k2000 0                  ; MIDI port 0 Ch. 1-16 (modem port)
  5.    k2000i 1                 ; MIDI port 1 Ch. 1-16 (printer port)
  6.    k2000ii 2                ; MIDI port 2 Ch. 1-16 
  7.    super-soundcanvas (3 4)  ; MIDI port 3 and 4 Ch. 1-32 
  8. )
  9.  
  10. ; Above lets you now use channels like 
  11. ;
  12. ;  k2000-1, k2000-2 ... k2000-16
  13. ;  k2000i-1, k2000i-2 ... k2000i-16
  14. ;  k2000ii-1, k2000ii-2 ... k2000ii-16 
  15. ;  super-soundcanvas-1, super-soundcanvas-2 ...  super-soundcanvas-32
  16.  
  17. ; Using setup channels in def-channel
  18.  
  19. (def-channel
  20.    piano1 k2000-1
  21.    piano2 k2000i-1
  22. )
  23.  
  24. ; Using setup channels in def-section
  25.  
  26. (def-orchestra 'orchestra
  27.    all-instruments (piano synth bass)
  28. )
  29.  
  30. (def-section sect-a
  31.    default
  32.       zone '(1/16)
  33.       tonality (activate-tonality (major c 4))
  34.       length '(1/16)
  35.       velocity '(64)
  36.       symbol '(a b c)
  37.    piano 
  38.       channel k2000-1
  39.       program (k2000 dual-elec-piano) 
  40.    synth
  41.       channel k2000i-1
  42.       program (k2000 new-prophet) 
  43.    bass
  44.       channel k2000ii-1
  45.       program (k2000 big-jupiter) 
  46. )
  47.  
  48. (def-tempo 120)
  49.  
  50. (midiport :printer)
  51.  
  52. (play-file-p "test2"
  53.    all-instruments '(sect-a)
  54. )
  55.